home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / text / edit / vim60src.lha / Vim / vim60 / src / testdir / test33.in < prev    next >
Encoding:
Text File  |  2000-11-22  |  616 b   |  35 lines
  1. Test for 'lisp'
  2. If the lisp feature is not enabled, this will fail!
  3.  
  4. STARTTEST
  5. :so small.vim
  6. :set lisp
  7. /^(defun
  8. =G:/^(defun/,$w! test.out
  9. :q!
  10. ENDTEST
  11.  
  12. (defun html-file (base)
  13. (format nil "~(~A~).html" base))
  14.  
  15. (defmacro page (name title &rest body)
  16. (let ((ti (gensym)))
  17. `(with-open-file (*standard-output*
  18. (html-file ,name)
  19. :direction :output
  20. :if-exists :supersede)
  21. (let ((,ti ,title))
  22. (as title ,ti)
  23. (with center 
  24. (as h2 (string-upcase ,ti)))
  25. (brs 3)
  26. ,@body))))
  27.  
  28. ;;; Utilities for generating links
  29.  
  30. (defmacro with-link (dest &rest body)
  31. `(progn
  32. (format t "<a href=\"~A\">" (html-file ,dest))
  33. ,@body
  34. (princ "</a>")))
  35.